Option Explicit
Sub E_Sample012()
   'ո E_Data01u@
    Dim myAr     As Variant
    Dim myCnt    As Long
    Dim myClc    As New Collection
    Dim myKey    As String
    Dim myErrNum As Long
    Dim i        As Long
    myAr = Range("A1").CurrentRegion.Value  			'wjMӷd
    For i = 1 To UBound(myAr)
        myClc.Add Item:=myAr(i, 8), key:=CStr(myAr(i, 3))
    Next
    myKey = ""						'w
    On Error Resume Next
        myCnt = myClc(myKey)
        myErrNum = Err.Number
    On Error GoTo 0
    If myErrNum = 0 Then
        MsgBox myKey & "XpƬ" & myCnt & "C"
    Else
        MsgBox "SŦX󪺸"
    End If
    Set myClc = Nothing						'
End Sub
